home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / typewriter 64 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 80 gosub1000
  2. 100 open 1,4,7
  3. 110 printchr$(147);chr$(14);chr$(8);tab(13)"[212][217][208][197][215][210][201][212][197][210] 64[146]"
  4. 120 print"........10........20........30........40[146]"
  5. 130 printchr$(126);:if (peek(211))>0 then  poke 211,(peek(211)-1)
  6. 140 get c$:if c$="" goto 140
  7. 150 if c$=chr$(133)goto 230
  8. 160 if c$=chr$(13)then  goto 250
  9. 170 if asc(c$)<>20 then print c$;:s$=s$+c$:goto 190
  10. 180 if (peek(211))>0 then print c$;
  11. 190 if len(s$)>78 then c$="":goto 250
  12. 200 if len(s$)=0 then 220
  13. 210 if asc(c$)=20 then s$=mid$(s$,1,(len(s$)-1))
  14. 220 goto 130
  15. 230 close 1:print chr$(147);chr$(9);chr$(142):load"hello connect",8
  16. 240 end
  17. 250 print " ";c$;:print#1,s$:s$=""
  18. 260 if peek(214)>23 then print chr$(147):goto 110
  19. 270 goto 130
  20. 1000 rem title screen
  21. 1010 print"[147][144]":poke53280,0:poke53281,5
  22. 1020 printspc(12)"[212]ypewriter 64"
  23. 1022 print
  24. 1024 printspc(12)" written by "
  25. 1026 print
  26. 1028 printspc(12)"[211]teve [195]onroy"
  27. 1029 print""
  28. 1030 print"   [204][207][193][196][211][212][193][210] is not public domain."
  29. 1032 print"  [208]lease respect the author's rights."
  30. 1034 print""
  31. 1040 print"    [208]lease press a key to continue."
  32. 1042 poke198,0:wait198,1:geta$
  33. 1050 :
  34. 1060 print"[147]  [208]lease make sure your printer is on."
  35. 1061 print" [208]lease press a key when you are ready."
  36. 1062 print"    <[217]ou may press '[209]' to quit now>"
  37. 1065 poke198,0:wait198,1:geta$:ifa$="q"then230
  38. 1070 open4,4:print#4:close4:ifst=0thenreturn
  39. 1080 print"    [201] can't seem to find a printer..."
  40. 1082 print"           [208]lease try again!"
  41. 1084 poke144,0:fordl=1to2000:next:goto1060
  42.